// Abacus.Def
// 
// Copyright 1995 Gary J Kacmarcik
// All Rights Reserved
//
// Modification History:
//  22 JUN 95  GJK  began at MacHack
//  24 JUN 95  GJK  finished 1st version

// operation #'s:
Attribute	Endian	1;	// and 2
Attribute	Base	3;	// and 4

Define Class Abacus;
	inherits from Box;
		
	// place to store the value of each row
	field	row0:		SignedShort;
	field	row1:		SignedShort;
	field	row2:		SignedShort;
	field	row3:		SignedShort;
	field	row4:		SignedShort;
	field	row5:		SignedShort;
	field	row6:		SignedShort;
	field	row7:		SignedShort;
	field	row8:		SignedShort;
	field	row9:		SignedShort;
	field	row10:		SignedShort;
	field	row11:		SignedShort;
	field	row12:		SignedShort;
	field	row13:		SignedShort;
	field	row14:		SignedShort;
	field	row15:		SignedShort;
	
	field	endian:		SignedShort, getter;	// 1=big, 0=little
	field	base:		SignedShort, getter;	// 1=hex, 0=decimal
	
	attribute	Endian:	SignedShort;
	attribute	Base:	SignedShort;
	
	overrides Draw;
	overrides Touch;
End Class;
